home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / xes131.lha / XES / REXX / xMethods.xdme < prev    next >
Encoding:
Text File  |  1994-12-23  |  414 b   |  19 lines
  1. /* xMethods.xdme */
  2.  
  3. number = FileList("libs:compressors/xpk????.library",methods,"F","N")
  4. do i=1 to number
  5.      do j=i to number
  6.           if methods.i > methods.j then do
  7.                buffer = methods.i
  8.                methods.i = methods.j
  9.                methods.j = buffer
  10.            end
  11.       end j
  12. end i
  13. deflist xpk
  14. do i = 1 to number
  15.      xcom = "addnode xpk tail" substr(methods.i,4,4) i-1
  16.      xcom
  17. end
  18.  
  19.